home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / daten / xmgr / examples / animcos.par < prev    next >
Text File  |  1995-02-05  |  2KB  |  109 lines
  1. # Test of animation 
  2. # an initial redraw to get things started (necessary)
  3. #
  4. redraw
  5. #
  6. # set doublebuffering on
  7. #
  8. doublebuffer true
  9. #
  10. # set graph focus markers off
  11. #
  12. focus off
  13. #
  14. # activate a set and load x with the index of the point
  15. #
  16. activate s0 200
  17. s0.x=index
  18. #
  19. # load to y a cosine curve
  20. #
  21. s0.y=cos(s0.x*2*pi/20)
  22. #
  23. # autoscale the first one
  24. #
  25. autoscale
  26. #
  27. # then draw the rest varying the amplitude
  28. #
  29. s0.y=0.9*cos(s0.x*2*pi/20)
  30. redraw
  31. s0.y=0.8*cos(s0.x*2*pi/20)
  32. redraw
  33. s0.y=0.7*cos(s0.x*2*pi/20)
  34. redraw
  35. s0.y=0.6*cos(s0.x*2*pi/20)
  36. redraw
  37. s0.y=0.5*cos(s0.x*2*pi/20)
  38. redraw
  39. s0.y=0.4*cos(s0.x*2*pi/20)
  40. redraw
  41. s0.y=0.3*cos(s0.x*2*pi/20)
  42. redraw
  43. s0.y=0.2*cos(s0.x*2*pi/20)
  44. redraw
  45. s0.y=0.1*cos(s0.x*2*pi/20)
  46. redraw
  47. s0.y=0.0
  48. redraw
  49. s0.y=-0.1*cos(s0.x*2*pi/20)
  50. redraw
  51. s0.y=-0.2*cos(s0.x*2*pi/20)
  52. redraw
  53. s0.y=-0.3*cos(s0.x*2*pi/20)
  54. redraw
  55. s0.y=-0.4*cos(s0.x*2*pi/20)
  56. redraw
  57. s0.y=-0.5*cos(s0.x*2*pi/20)
  58. redraw
  59. s0.y=-0.6*cos(s0.x*2*pi/20)
  60. redraw
  61. s0.y=-0.7*cos(s0.x*2*pi/20)
  62. redraw
  63. s0.y=-0.8*cos(s0.x*2*pi/20)
  64. redraw
  65. s0.y=-0.9*cos(s0.x*2*pi/20)
  66. redraw
  67. s0.y=-cos(s0.x*2*pi/20)
  68. redraw
  69. s0.y=-0.9*cos(s0.x*2*pi/20)
  70. redraw
  71. s0.y=-0.8*cos(s0.x*2*pi/20)
  72. redraw
  73. s0.y=-0.7*cos(s0.x*2*pi/20)
  74. redraw
  75. s0.y=-0.6*cos(s0.x*2*pi/20)
  76. redraw
  77. s0.y=-0.5*cos(s0.x*2*pi/20)
  78. redraw
  79. s0.y=-0.4*cos(s0.x*2*pi/20)
  80. redraw
  81. s0.y=-0.3*cos(s0.x*2*pi/20)
  82. redraw
  83. s0.y=-0.2*cos(s0.x*2*pi/20)
  84. redraw
  85. s0.y=-0.1*cos(s0.x*2*pi/20)
  86. redraw
  87. s0.y=0.0
  88. redraw
  89. s0.y=0.1*cos(s0.x*2*pi/20)
  90. redraw
  91. s0.y=0.2*cos(s0.x*2*pi/20)
  92. redraw
  93. s0.y=0.3*cos(s0.x*2*pi/20)
  94. redraw
  95. s0.y=0.4*cos(s0.x*2*pi/20)
  96. redraw
  97. s0.y=0.5*cos(s0.x*2*pi/20)
  98. redraw
  99. s0.y=0.6*cos(s0.x*2*pi/20)
  100. redraw
  101. s0.y=0.7*cos(s0.x*2*pi/20)
  102. redraw
  103. s0.y=0.8*cos(s0.x*2*pi/20)
  104. redraw
  105. s0.y=0.9*cos(s0.x*2*pi/20)
  106. redraw
  107. s0.y=cos(s0.x*2*pi/20)
  108. redraw
  109.